home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 46 / 046.d81 / f.loan calc (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  636b  |  18 lines
  1. 1 print"[147][159]"
  2. 2 printtab(9)"[201]nsert [204][207][193][196][211][212][193][210] #28[159] [211]ide 2[159]"
  3. 3 printtab(14)"and press [210][197][212][213][210][206][146]"
  4. 4 geta$:ifa$<>chr$(13)then4
  5. 5 printtab(8)"[156][197] [216] [212][160][197][160][210][160][205][160][201][160][206][160][193][160][212][160][201][160][206][160][199]!!!"
  6. 10 qt$=chr$(34):f$="loan calc"
  7. 20 print"[144]load"qt$f$qt$",8"
  8. 30 print"97mt=val(a$):ifval(a$)<1orval(a$)>12t[200]?"+qt$+"[145][145]"+qt$+";:goto96"
  9. 50 print"510 if i=13-mtthen gosub900:goto530"
  10. 60 print"112 print"+qt$+"to continue and again to pause"+qt$+":mo=mt
  11. 65 [153]"520k=k+1:ifk=12thengosub900"
  12. 70 [153]"420 ?"[170]qt$[170]"=>"[170]qt$[170]";bk$;:nc=75:qq=mo:mo=190:gosub60500:f$=a$:mo=qq"
  13. 100 [153]"open15,8,15,"qt$"s0:"f$qt$":close15:save"qt$f$qt$",8"
  14. 125 [153]"poke646,15"
  15. 130 [153]""
  16. 140 [129]i[178]631[164]640:[151]i,13:[130]:[151]198,10
  17. 150 [162]
  18.